with Ada.Text_IO; use Ada.Text_IO;

procedure Stage4 is
	A :Integer;
	B :Float;
	type Score is range 0 .. 20;
	type Percentage is range -100 .. 100;
	type Color is (Red, Green, Blue, Yellow, Black);
	type Ternary is (True, False, Unknown);

	type Distance is digits 10;
	type Temperature is digits 5 range -273.15 .. 1_000_000.0;
	type Math_Score is new Score;
	type Math_Postive_Score is new Score range 0 .. 10;
	type Primary_Color is new Color range Red .. Blue;

	S : String := "AAA";
	S_to_I: Integer;

	V: Character;
	W: Character;
begin
	A  := 1;
	B  := 1.0;
	S := Integer'Image (42);
	S_to_I := Integer'Value (S);
	Ada.Text_IO.Put_Line ("Hello world");	
	Ada.Text_IO.Put_Line (A'Image);	
	Ada.Text_IO.Put_Line (B'Image);	
	Ada.Text_IO.Put_Line (S);	
	Ada.Text_IO.Put_Line (S_to_I'Image);	
	V := Character'Val (0);
	W := Character'Val (Character'Pos (V) + 1);

end Stage4;
